gauge ID ACTION LEVEL 60 LABEL "Updating user" fields.username
option.defname = fields.username
OK = Open(opwd,'T:passwd')
if rc ~=0 then exit
OK = Open(npwd,'T:passwd.new',w)
if rc ~=0 then exit
Do while ~eof(opwd)
pline = readln(opwd)
if left(pline,length(fields.username)+1) = (fields.username'|') then pline = (fields.username'|'XPasswd'|'fields.userid'|'fields.groupid'|'fields.realname'|'fields.home'|shell')